YES 0.447
↳ HASKELL
↳ IFR
((when :: Bool -> [()] -> [()]) :: Bool -> [()] -> [()]) |
import qualified Maybe import qualified Prelude |
|||||
when :: Monad a => Bool -> a () -> a ()
|
import qualified Monad import qualified Prelude |
if p then s else return ()
when0 s True = s when0 s False = return ()
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
((when :: Bool -> [()] -> [()]) :: Bool -> [()] -> [()]) |
import qualified Monad import qualified Prelude |
import qualified Maybe import qualified Prelude |
|||||||||
when :: Monad a => Bool -> a () -> a ()
|
|||||||||
|
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
((when :: Bool -> [()] -> [()]) :: Bool -> [()] -> [()]) |
import qualified Maybe import qualified Prelude |
|||||||||
when :: Monad a => Bool -> a () -> a ()
|
|||||||||
|
import qualified Monad import qualified Prelude |
undefined
| False
= undefined
undefined = undefined1
undefined0 True = undefined
undefined1 = undefined0 False
↳ HASKELL
↳ IFR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
(when :: Bool -> [()] -> [()]) |
import qualified Monad import qualified Prelude |
import qualified Maybe import qualified Prelude |
|||||||||
when :: Monad a => Bool -> a () -> a ()
|
|||||||||
|